home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Desktop Show Username.xpl < prev    next >
Text File  |  2001-04-12  |  2KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Desktop\Icons\'My Computer' Options"
  5. "NAME"="Show USERNAME on 'My Computer'"
  6. "VERSION"="2.12"
  7. "OSVERSION"="010101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Show current username and computer on 'My Computer'"
  10. "DESCRIPTION 1"="If this option is activated, the text below the 'My Computer' icon will display the current username and the name of this computer for example, "JDOW on SERVER". 
  11. "DESCRIPTION 2"="NOTE: This option does work for Windows NT only!"
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16. "COMMENT 2"="Thanks to Hofi [mailto:hofi@mail.ahiv.hu] for the W2K patch! (which doesn't work.....)"
  17. "COMMENT 3"="Thanks to Dan Iorgulescu [mailto:rs2-dani@bx.logicnet.ro] for the working W2K patch!"
  18.  
  19.  
  20. sP="HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\@"
  21. sV="%USERNAME% on %COMPUTERNAME%"
  22.  
  23. 'old
  24. 'sP_W2K="HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\LocalizedString" 
  25. 'sV_W2K="@shell32.dll,-9216@1033, %USERNAME% on %COMPUTERNAME% in %USERDOMAIN%"
  26.  
  27. sP_W2K="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\@"
  28. sV_W2K="%USERNAME% on %COMPUTERNAME% in %USERDOMAIN%"
  29.  
  30.  
  31. Sub Plugin_Initialize 
  32.     if GetWinVer=2 then
  33.        s=RegReadValue(sP)
  34.        if s=sV then SetUIElement 1,true
  35.     else
  36.        s=RegReadValue(sP_W2k)
  37.        if s=sV_w2k then SetUIElement 1,true
  38.     end if
  39. End Sub
  40.  
  41. Sub Plugin_CheckData(ElementIndex)
  42. End Sub
  43.  
  44. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  45.  
  46.  b=GetUIElement(1)
  47.  if b=true then
  48.     if GetWinVer=2 then
  49.        Call RegWriteValue(sP,sV,4)
  50.     else
  51.        Call RegWriteValue(sP_W2k,sV_w2k,4)
  52.     end if
  53.  else
  54.     'back to default
  55.     if GetWinVer=2 then 'WNT
  56.        s=RegReadValue(sP)
  57.        if ucase(s)=ucase(sV) then  'okay, changed: FIX IT! 
  58.           Call RegWriteValue(sP,"My Computer",1)
  59.        end if
  60.     else 'W2K
  61.        s=RegReadValue(sP_w2k)
  62.        if ucase(s)=ucase(sV_w2k) then 'okay, changed: FIX IT! 
  63.           Call RegWriteValue(sP_w2k,"My Computer",1)
  64.        end if
  65.     end if    
  66.  end if
  67.  
  68.  
  69.  Call Logoff()
  70. End Sub
  71.  
  72. Sub Plugin_Terminate 
  73. End Sub
  74.